home *** CD-ROM | disk | FTP | other *** search
/ B Soft 4 / B-Soft_4_19xx_Maik__Mike_de_Side_B.d64 / techno trash_jtr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  47 lines
  1. 0 poke53280,14:poke53281,6:printchr$(142)"[147][154]immer wenn ich am staubsauger masturbie-[146]"
  2. 1 poke808,225:printchr$(8)"[145]re, sind die batterien meines gameboys  [146]"
  3. 2 print"[145]leer.[146]":ford=1to2000:nextd
  4. 10 poke53280,0:poke53281,0:gosub170
  5. 20 print"[147]"
  6. 30 gosub40:gosub100:gosub40:gosub100:gosub40:gosub100:gosub40:gosub40:goto30
  7. 40 zf=int(6*rnd(1)):gosub110
  8. 50 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w=si+4:a=si+5:h=si+6:l=si+24
  9. 60 forx=15to0step-1
  10. 70 pokel,x:pokea,15:pokeh,0:pokefh,40:pokefl,200:pokew,129
  11. 80 next
  12. 90 pokew,0:pokea,0:return
  13. 100 forx=1to150:nextx:return
  14. 110 ifzf=0thenprint"stampf!!":return
  15. 120 ifzf=1thenprint"bumm!!":return
  16. 130 ifzf=2thenprint"zoing!!":return
  17. 140 ifzf=3thenprint"peng!!":return
  18. 150 ifzf=4thenprint"rums!!":return
  19. 160 ifzf=5thenprint"zack!!":return
  20. 170 print"[147]tranc'natin' tekkhno!"
  21. 180 print"willkommen, ihr trance-trashs, raver,"
  22. 190 print"peacemakers, floor dancer; mitglieder"
  23. 200 print"der new generation!! mit diesem programm"
  24. 210 print"[145]will euch beweisen, dass in dem groovi-"
  25. 220 print"gen 64er eine 'ober-tasse' soundmaschine"
  26. 230 print"[145]steckt!"
  27. 240 print"mit dem hardwarezusatz: 'flexx control'"
  28. 250 print"(casio, umger. fuer ca. 2000, import ue."
  29. 260 print"[145]polen), dass in dem expansionsport unse-"
  30. 270 print"[145]rer kleinen 'bread box' seine taetigkeit"
  31. 280 print"[145]verrichtet, ist es mir gelungen sagen-"
  32. 290 print"hafte vier (!) tracks mit unglaublich"
  33. 300 print"coolen tekkhno-rythmen zu bespielen."
  34. 310 print"dieses kunststueck ist mir gelungen, in-"
  35. 320 print"[145]dem ich drei 'wavecurves' schnell wech-"
  36. 330 print"selnd ueber den tuner scannte - so"
  37. 340 print"schnell, dass das menschliche ohr ueber-"
  38. 350 print"[145]listet wird... irre, haeh?!":gosub390:return
  39. 390 print""tab(11)"druecke leertaste!"
  40. 400 ford=1to100:geta$:ifa$=" "then440
  41. 410 next:print"[144]"tab(11)"                  "
  42. 420 ford=1to100:geta$:ifa$=" "then440
  43. 430 next:goto390
  44. 440 return
  45. 5000 rem techno is' scheisse!
  46. 5001 rem 1996 by jtr for b-soft
  47.